home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Kit PC World De Ampliacion De Windows 95
/
Kit PC World de ampliacion de Windows 95.iso
/
lotus
/
lotus028.dsk
/
025.LSS
< prev
next >
Wrap
Text File
|
1995-10-19
|
2KB
|
87 lines
Use "am_mod"
Sub Initialize
ClientMainWinClass = "WordProAppWndNT"
ClientID = AN_AMIPRO
ClientModName = "am_mod"
ClientLotusAppID = "WORDPRO"
ShowMeModName = "025"
AnimVersionNum = .63
NumFramesThisAnim = 9
AnimationType = "QuickDemo"
SampleFile = "la2n70??.lwp"
AnimName = GetString( "0250000", IResult% )
End Sub
Public Sub ShowMe (theNextStep As Integer)
GetCursorPos TempPos
CursorPosForStep(theNextStep) = TempPos
Select Case theNextStep
Case 1
StepsText = GetString( "0251001", IResult% )
X = DoWhereIs (INSERTION_POINT,"",0,0,0,0,ClientID)
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
DoMouse WM_RBUTTONDOWN%, 0
DoMouse WM_RBUTTONUP%, 0
Exit Sub
Case 2
StepsText = GetString( "0251002", IResult% )
ShowTextBubble StepsText, 172.5, 24, NorthEast
HideTextBubble
Exit Sub
Case 3
SendCtrlKeys "{DOWN 2}{ENTER}", 100
Exit Sub
Case 4
StepsText = GetString( "0251003", IResult% )
X = DoWhereIs (0,"",3,INFOBOX_TAB,0,0,AN_INFOBOX)
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 5
StepsText = GetString( "0251004", IResult% )
X = DoWhereIs (0,"",PAGECOLUMNS,INFOBOX_CONTROL,0,0,AN_INFOBOX)
ShowTextBubble StepsText, .5, 1, NorthEast
HideTextBubble
Exit Sub
Case 6
MoveToObjRel 75 , 25
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 7
StepsText = GetString( "0251005", IResult% )
X = DoWhereIs (0,"",COLUMNBALANCE,INFOBOX_CONTROL,0,0,AN_INFOBOX)
ShowTextBubble StepsText, 1, .5, NorthEast
HideTextBubble
Exit Sub
Case 8
MoveToObjRel 5 , 50
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 9
X = DoWhereIs (0,"",7,INFOBOX_TAB,0,0,AN_INFOBOX)
MoveToObjRel 120 ,-75
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
End Select
End Sub